home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / geschaef / ds0093 / topfakt / ls.for < prev    next >
Text File  |  1993-06-30  |  8KB  |  142 lines

  1. / FORMULAR LIEFERSCHEIN
  2. /                              das, was nach / bzw. // steht, wird nicht gedruckt
  3. ^E ^12                      // Druck in Entwurfsqualität, Größe 12 CPI
  4. !LINKER RAND 6              // ein Rand von 6 Zeichen
  5. !AUSDRUCKE 1                // Anzahl der Ausdrucke festlegen
  6. /
  7. !WENN #Seite= 1             // Firmenkopf+ Adresse nur auf 1.Seite drucken
  8. #Firmenkopf                 // Firmenkopf einsetzen (7 Zeilen lang)
  9.  
  10.  
  11.  
  12.   ^17^U#Firmenabsender ^u ^12       // Ihr Absender in 17 CPI & unterstrichen
  13.  
  14.   #Anrede
  15.   #Vorname#Name
  16.   [[#Name2 ]]                       // diese Zeile nicht drucken, wenn Name2 leer
  17.   #Strasse
  18.  
  19. ^F  #Land#Plz  #Ort ^f               // diese Zeile in fett
  20. !ENDE WENN #Seite=1
  21.  
  22. !GEHE ZU ZEILE 15                   // für Druck ab 2. Seite, damit vorgedruckter Briefkopf nicht überschrieben wd.
  23.                                                       Lieferschein Nr.  : #AtrNr:8:0
  24.                                                       Kunden-Nr.        : #KdNr:8:0
  25.                                                       [[Bestätigung vom   : #AbDatum ]]
  26.                                                       [[Lieferscheindatum : #LsDatum ]]
  27.                                                       [[Rechnungsdatum    : #RgDatum ]]
  28.                                                       [[Valuta            : #ValutaDatum ]]
  29.                                                       [[Seite             : #SEITE2:8:0 ]]  // Erst ab 2.Seite drucken
  30. ^BLIEFERSCHEIN ^b ^12 #Vermerk
  31. [[#Kopftext:79 ]]
  32. ──────────────────────────────────────────────────────────────────────────────────
  33. Artikelnr. Bezeichnung                                                 Menge Einh.
  34. ──────────────────────────────────────────────────────────────────────────────────
  35. /234567890 1234567890123456789012345678901234567890123456789012345 123456789 12345
  36. !LISTE:52     // Liste max.bis Druckzeile 52
  37. #ArtNr     #ArtText:55                                             #MEN:9    #EINH
  38. !ENDELISTE
  39. ──────────────────────────────────────────────────────────────────────────────────
  40. !WENN #LetzteSeite
  41.  
  42. [[#Fusstext:79 ]]
  43. /
  44. !GEHE ZU ZEILE 56
  45. Wir danken für Ihren Auftrag und verbleiben mit freundlichen Grüßen.
  46.  
  47. ^17#Bank1                                    #Bank2                                    #Bank3                                    ^12
  48. ^17#Blz1             #Kontonr1               #Blz2             #Kontonr2               #Blz3             #Kontonr3               ^12
  49. /
  50. !ENDE WENN #LetzteSeite
  51. !SEITENAUSWURF
  52. !FORMULARENDE    // alles, was hiernach kommt, wird nicht mehr gedruckt...
  53.  
  54.  
  55.  
  56.  
  57. *******************************************************************************
  58. / Es folgt die Definition der Platzhalter, die Sie nicht löschen sollten.
  59. / Sie können die Platzhalter ändern und ergänzen, allerdings auf eigene Gefahr.
  60. *******************************************************************************
  61. !PLATZHALTER
  62.   #AtrNr ,           ako->at_nr
  63.   #KdNr ,            ako->at_kdnr
  64.   #FIRMENABSENDER ,  fir->fenster
  65.   #ANREDE ,          kun->anrede
  66.   #VORNAME ,         LTrim( Trim( kun->n1)+ ' ')
  67.   #NAME ,            kun->n2
  68.   #NAME2 ,           kun->ansprechp
  69.   #STRASSE ,         kun->strasse
  70.   #LAND ,            Trim( kun->land)+ IF( .NOT. Empty( kun->land), '-', '')
  71.   #PLZ ,             kun->plz
  72.   #ORT ,             kun->ort
  73.   #Briefanrede,      Trim( kun->briefanred)+ IF( ! Empty( kun->briefanred), ',', '')
  74.  
  75.   #AgDatum ,         ako->at_dat       // Datum des Angebots (=Auftrag vom)
  76.   #AbDatum ,         ako->at_bestdat   // Datum der Auftragsbestätigung
  77.   #LsDatum ,         ako->at_liefdat   // Datum des Lieferscheins (falls gedruckt)
  78.   #RgDatum ,         ako->at_rgdat     // Datum der Rechnung
  79.   #GsDatum ,         ako->at_rgdat     // Datum der Gutschrift
  80.   #ValutaDatum,      ako->at_valuta
  81.   #AtrBrutto ,       ako->at_mwstinc='J'    // Auftrag=Brutto (Mwst. incl.)
  82.   #AtrNetto ,        ako->at_mwstinc$'N0'   // Auftrag=Netto  (Mwst. zzgl.)
  83.   #AtrAusland ,      ako->at_mwstinc='0'    // Auftrag Ohne Steuer
  84.   #AtrRabatt ,       ako->at_rabatt    // im Auftragskopf eingegebener Rabatt
  85.  
  86.   #TextPosition,     IsTextApo()       // enthält Position nur Text?
  87.   #RabattProz,       apo->art_rabatt   // Rabatt der einzelnen Position
  88.   #RabattProz2,      kun->rabatt2      // zusätzlicher fester 2.Kundenrabatt
  89.   #Rabattitel,       IF( #AtrRabatt <> 0, 'Rabatt', '')
  90.   #Rabatt1,          IF( Empty( #RabattProz) .OR. IsTextApo(),  '      ', Str( #RabattProz,5,2)+ '%')
  91.   #Rabatt2,          IF( Empty( #RabattProz2) .OR. IsTextApo(), '', Str( #RabattProz2,5,2)+ '%')
  92.   #EINH,             apo->Mengeneinh
  93.   #MEN ,             IF( IsTextApo(), '', apo->liefmenge ) // Menge der Position
  94.   #EPreis ,          IF( IsTextApo(), '', apo->epreis )    // Einzelpreis der Position
  95.   #GP ,              gespreis          // Variable für den berechneten GPreis
  96.   #Summe,            Summe             // Auftr.summe Netto bzw. Brutto
  97.   #RabattGesamt,     rabattges         // Rabattbetrag des Auftrags Netto bzw. Brutto
  98.   #StBez ,           fir->bezsteuer    // Bezeichnung der Steuer: Mwst./WUST...
  99.   #STP1 ,            MwstForm( fir->mwst1)
  100.   #STP2 ,            MwstForm( fir->mwst2)
  101.   #NettoSumme1 ,     NettoSum1         // Nettosumme für Art. mit 1. Mwstsatz
  102.   #NettoSumme2 ,     NettoSum2         // Nettosumme für Art. mit 2. Mwstsatz
  103.  
  104.   #SteuerSumme1 ,    NettoSum1 * fir->mwst1 / 100  // Steuerbetrag für Steuersatz 1
  105.   #SteuerSumme2 ,    NettoSum2 * fir->mwst2 / 100  // Steuerbetrag für Steuersatz 2
  106.   #BruttoSumme ,     #Summe + #SteuerSumme1 + #SteuerSumme2
  107.   #Auftragsumme,     IF( #AtrBrutto, #Summe, #BruttoSumme )  // Endsumme Auftrag
  108.  
  109.   #Pos,              apo->pos+ IF( Empty( apo->pos), ' ', '.') // Durchnummerierung der Positionen
  110.   #ArtNr ,           IF( IsTextApo( apo->art_nr), '          ', apo->art_nr)
  111.   #ArtName ,         Trim( apo->Art_name)        // Artikelkurzbezeichung
  112.   #ArtText ,         Trim( apo->Text)            // Ausführlicher Text
  113.   #ArtStSatz ,       apo->art_mwsatz             // Steuersatz: 1/2/0
  114.   #ArtStProz ,       mwst( #ArtStSatz)           // Steuer-Prozentsatz
  115.   #ArtSteuer1 ,      IF( #ArtStSatz= 1, IF( ako->at_mwstinc='N', #GP* #ArtStProz/100, #GP- #GP /( 1+ #ArtStProz/100)), 0)
  116.   #ArtSteuer2 ,      IF( #ArtStSatz= 2, IF( ako->at_mwstinc='N', #GP* #ArtStProz/100, #GP- #GP /( 1+ #ArtStProz/100)), 0)
  117.   #NettoPreisSteuer1, IF( apo->art_mwsatz= 1, IF( ako->at_mwstinc='N', #GP, #GP /( 1+ #ArtStProz/100)), 0)
  118.   #NettoPreisSteuer2, IF( apo->art_mwsatz= 2, IF( ako->at_mwstinc='N', #GP, #GP /( 1+ #ArtStProz/100)), 0)
  119.  
  120.   #Vermerk,          IF( Substr( ako->at_titel,1,1)= '"', '', ako->at_titel)
  121.   #Kopftext ,        IF( #Seite=1, ako->at_kopf, '')
  122.   #Fusstext ,        ako->at_fuss
  123.   #Nachnahme,        "Nachnahme" $ "#Fusstext"    // Steht "Nachn." im Fusstext des Auftrags?
  124.  
  125.   #ZahlungIn,        ako->zahlungin    // Zahlbar innerhalb .. Tagen
  126.   #ZahlungBisDatum,  IF( #ZahlungIn = 0, '', ako->at_rgdat + #ZahlungIn )
  127.   #SkontoProz,       ako->skonto       // Skonto in Prozent
  128.   #SkontoTage,       ako->skontotage   // Tage, innerhalb deren Skonto gewährt wird
  129.   #SkontoBisDatum,   ako->at_rgdat + #SkontoTage
  130.   #SkontoBetrag,     #Auftragsumme * (#SkontoProz / 100)
  131.  
  132.   #Bank1,            fir->bank1        // 1. Bankverbindung
  133.   #Blz1,             fir->blz_1
  134.   #Kontonr1,         fir->knr_1
  135.   #Bank2,            fir->bank2        // 2. Bankverbindung
  136.   #Blz2,             fir->blz_2
  137.   #Kontonr2,         fir->knr_2
  138.   #Bank3,            Trim( fir->bank3) // 3. Bankverbindung
  139.   #Blz3,             fir->blz_3
  140.   #Kontonr3,         Trim( fir->knr_3)
  141. !ENDE PLATZHALTER
  142.